home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / service / foxpro2 / menu.mpr < prev    next >
Text File  |  1994-01-01  |  16KB  |  403 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 07/24/91              MENU.MPR                16:03:34  ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Systems Group                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1991 Fox Software                         ║
  10. *       ║ 134 West South Boundary                                 ║
  11. *       ║ Perrsyburg, OH  43551                                   ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENMENU.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18.  
  19. *       ╓─────────────────────────────────────────────────────────╖
  20. *       ║                                                         ║
  21. *       ║                        Setup Code                       ║
  22. *       ║                                                         ║
  23. *       ╙─────────────────────────────────────────────────────────╜
  24. *
  25.  
  26. push menu _msysmenu
  27. set sysmenu automatic
  28. public skipvar
  29. skipvar = .f.
  30.  
  31. *       ╓─────────────────────────────────────────────────────────╖
  32. *       ║                                                         ║
  33. *       ║                      Menu Definition                    ║
  34. *       ║                                                         ║
  35. *       ╙─────────────────────────────────────────────────────────╜
  36. *
  37.  
  38. SET SYSMENU TO
  39.  
  40. SET SYSMENU AUTOMATIC
  41.  
  42. DEFINE PAD _pxe0yf6ko OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
  43.     KEY ALT+S, "ALT+S" ;
  44.     SKIP FOR skipvar
  45. DEFINE PAD _pxe0yf6m3 OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  46.     KEY ALT+E, ""
  47. DEFINE PAD _pxe0yf6mq OF _MSYSMENU PROMPT "\<Database" COLOR SCHEME 3 ;
  48.     KEY ALT+D, ""
  49. DEFINE PAD _pxe0yf6na OF _MSYSMENU PROMPT "E\<nvironment" COLOR SCHEME 3 ;
  50.     KEY ALT+N, "ALT+N"
  51. ON PAD _pxe0yf6ko OF _MSYSMENU ACTIVATE POPUP system
  52. ON PAD _pxe0yf6m3 OF _MSYSMENU ACTIVATE POPUP edit
  53. ON PAD _pxe0yf6mq OF _MSYSMENU ACTIVATE POPUP database
  54. ON PAD _pxe0yf6na OF _MSYSMENU ACTIVATE POPUP enviro
  55.  
  56. DEFINE POPUP system MARGIN RELATIVE SHADOW COLOR SCHEME 4
  57. DEFINE BAR _MST_HELP OF system PROMPT "\<Help..." ;
  58.     KEY F1, "F1" ;
  59.     SKIP FOR skipvar
  60. DEFINE BAR _MST_FILER OF system PROMPT "\<Filer" ;
  61.     SKIP FOR skipvar
  62. DEFINE BAR 3 OF system PROMPT "\-" ;
  63.     SKIP FOR skipvar
  64. DEFINE BAR _MST_CALCU OF system PROMPT "\<Calculator" ;
  65.     SKIP FOR skipvar
  66. DEFINE BAR _MST_DIARY OF system PROMPT "Calendar/\<Diary" ;
  67.     SKIP FOR skipvar
  68. DEFINE BAR _MST_ASCII OF system PROMPT "ASC\<II Chart" ;
  69.     SKIP FOR skipvar
  70. DEFINE BAR _MST_PUZZL OF system PROMPT "Pu\<zzle" ;
  71.     SKIP FOR skipvar
  72. DEFINE BAR 8 OF system PROMPT "\-" ;
  73.     SKIP FOR skipvar
  74. DEFINE BAR 9 OF system PROMPT "\<Quit" ;
  75.     KEY CTRL+Q, "^Q" ;
  76.     SKIP FOR skipvar
  77. ON SELECTION BAR 9 OF system ;
  78.     DO _pxe0yf6x5 ;
  79.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  80.  
  81. DEFINE POPUP edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  82. DEFINE BAR _MED_UNDO OF edit PROMPT "\<Undo" ;
  83.     KEY CTRL+U, "^U"
  84. DEFINE BAR _MED_REDO OF edit PROMPT "\<Redo" ;
  85.     KEY CTRL+R, "^R"
  86. DEFINE BAR _MED_SP100 OF edit PROMPT "\-"
  87. DEFINE BAR _MED_CUT OF edit PROMPT "Cu\<t" ;
  88.     KEY CTRL+X, "^X"
  89. DEFINE BAR _MED_COPY OF edit PROMPT "\<Copy" ;
  90.     KEY CTRL+C, "^C"
  91. DEFINE BAR _MED_PASTE OF edit PROMPT "\<Paste" ;
  92.     KEY CTRL+V, "^V"
  93. DEFINE BAR _MED_SP200 OF edit PROMPT "\-"
  94. DEFINE BAR _MED_SLCTA OF edit PROMPT "Select \<All" ;
  95.     KEY CTRL+A, "^A"
  96.  
  97. DEFINE POPUP database MARGIN RELATIVE SHADOW COLOR SCHEME 4
  98. DEFINE BAR 1 OF database PROMPT "\<Browse" ;
  99.     KEY CTRL+B, "^B" ;
  100.     SKIP FOR skipvar
  101. DEFINE BAR 2 OF database PROMPT "\<Goto..." ;
  102.     SKIP FOR skipvar
  103. DEFINE BAR 3 OF database PROMPT "\<Report..." ;
  104.     SKIP FOR skipvar
  105. DEFINE BAR 4 OF database PROMPT "\-" ;
  106.     SKIP FOR skipvar
  107. DEFINE BAR 5 OF database PROMPT "T\<oggle Delete" ;
  108.     KEY CTRL+O, "^O" ;
  109.     SKIP FOR skipvar
  110. DEFINE BAR 6 OF database PROMPT "\<Pack" ;
  111.     SKIP FOR skipvar
  112. ON SELECTION BAR 1 OF database ;
  113.     DO _pxe0yf79b ;
  114.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  115. ON SELECTION BAR 2 OF database ;
  116.     DO _pxe0yf7ag ;
  117.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  118. ON SELECTION BAR 3 OF database ;
  119.     DO _pxe0yf7bl ;
  120.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  121. ON SELECTION BAR 5 OF database ;
  122.     DO _pxe0yf7cu ;
  123.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  124. ON SELECTION BAR 6 OF database ;
  125.     DO _pxe0yf7dz ;
  126.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  127.  
  128. DEFINE POPUP enviro MARGIN RELATIVE SHADOW COLOR SCHEME 4
  129. DEFINE BAR 1 OF enviro PROMPT "\<Status Bar" ;
  130.     SKIP FOR skipvar
  131. DEFINE BAR 2 OF enviro PROMPT "\<Clock" ;
  132.     SKIP FOR skipvar
  133. DEFINE BAR 3 OF enviro PROMPT "St\<icky" ;
  134.     SKIP FOR skipvar
  135. ON SELECTION BAR 1 OF enviro ;
  136.     DO _pxe0yf7if ;
  137.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  138. ON SELECTION BAR 2 OF enviro ;
  139.     DO _pxe0yf7jk ;
  140.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  141. ON SELECTION BAR 3 OF enviro ;
  142.     DO _pxe0yf7ko ;
  143.     IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
  144.  
  145.  
  146. *       ╓─────────────────────────────────────────────────────────╖
  147. *       ║                                                         ║
  148. *       ║                 Cleanup Code & Procedures               ║
  149. *       ║                                                         ║
  150. *       ╙─────────────────────────────────────────────────────────╜
  151. *
  152.  
  153. for i = 1 to cntbar('enviro')
  154.     do case
  155.     case prmbar('enviro',i) = 'Status Bar'
  156.         set mark of bar i of enviro to  set('status') = 'ON'
  157.     case prmbar('enviro',i) = 'Clock'
  158.         set mark of bar i of enviro to  set('clock') = 'ON'
  159.     case prmbar('enviro',i) = 'Extended Video'
  160.         set mark of bar i of enviro to  srow() > 25
  161.     case prmbar('enviro',i) = 'Sticky'
  162.         set mark of bar i of enviro to  set('sticky') = 'ON'
  163.     endcase
  164. endfor
  165.  
  166.  
  167. *       ╓─────────────────────────────────────────────────────────╖
  168. *       ║                                                         ║
  169. *       ║ _PXE0YF6X5  ON SELECTION BAR 9 OF POPUP system          ║
  170. *       ║                                                         ║
  171. *       ║ Procedure Origin:                                       ║
  172. *       ║                                                         ║
  173. *       ║ From Menu:  MENU.MPR,            Record:   13           ║
  174. *       ║ Called By:  ON SELECTION BAR 9 OF POPUP system          ║
  175. *       ║ Prompt:     Quit                                        ║
  176. *       ║ Snippet:    1                                           ║
  177. *       ║                                                         ║
  178. *       ╙─────────────────────────────────────────────────────────╜
  179. *
  180. PROCEDURE _pxe0yf6x5
  181. clear read
  182. pop menu _msysmenu
  183.  
  184.  
  185.  
  186. *       ╓─────────────────────────────────────────────────────────╖
  187. *       ║                                                         ║
  188. *       ║ _PXE0YF79B  ON SELECTION BAR 1 OF POPUP database        ║
  189. *       ║                                                         ║
  190. *       ║ Procedure Origin:                                       ║
  191. *       ║                                                         ║
  192. *       ║ From Menu:  MENU.MPR,            Record:   26           ║
  193. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP database        ║
  194. *       ║ Prompt:     Browse                                      ║
  195. *       ║ Snippet:    2                                           ║
  196. *       ║                                                         ║
  197. *       ╙─────────────────────────────────────────────────────────╜
  198. *
  199. PROCEDURE _pxe0yf79b
  200. define window temp from 1,1 to 13,50 ;
  201.     float grow zoom close system minimize ;
  202.     title "Browse Database" ;
  203.     color scheme 10
  204. browse width 7 window temp nowait
  205. scatter memvar
  206. show gets
  207. release window temp
  208.  
  209.  
  210.  
  211. *       ╓─────────────────────────────────────────────────────────╖
  212. *       ║                                                         ║
  213. *       ║ _PXE0YF7AG  ON SELECTION BAR 2 OF POPUP database        ║
  214. *       ║                                                         ║
  215. *       ║ Procedure Origin:                                       ║
  216. *       ║                                                         ║
  217. *       ║ From Menu:  MENU.MPR,            Record:   27           ║
  218. *       ║ Called By:  ON SELECTION BAR 2 OF POPUP database        ║
  219. *       ║ Prompt:     Goto...                                     ║
  220. *       ║ Snippet:    3                                           ║
  221. *       ║                                                         ║
  222. *       ╙─────────────────────────────────────────────────────────╜
  223. *
  224. PROCEDURE _pxe0yf7ag
  225. do goto.spr
  226.  
  227.  
  228. *       ╓─────────────────────────────────────────────────────────╖
  229. *       ║                                                         ║
  230. *       ║ _PXE0YF7BL  ON SELECTION BAR 3 OF POPUP database        ║
  231. *       ║                                                         ║
  232. *       ║ Procedure Origin:                                       ║
  233. *       ║                                                         ║
  234. *       ║ From Menu:  MENU.MPR,            Record:   28           ║
  235. *       ║ Called By:  ON SELECTION BAR 3 OF POPUP database        ║
  236. *       ║ Prompt:     Report...                                   ║
  237. *       ║ Snippet:    4                                           ║
  238. *       ║                                                         ║
  239. *       ╙─────────────────────────────────────────────────────────╜
  240. *
  241. PROCEDURE _pxe0yf7bl
  242. private reportok, toprint, tofile, preview, ;
  243.     printfile,repoclause
  244. reportok = 'TITLE'
  245. printfile = ''
  246. repoclause = ''
  247. store 0 to reportok,toprint,tofile
  248. store 1 to preview
  249. skipvar = .t.
  250. store recno() TO saverec
  251. store order() to saveorder
  252. do report.spr
  253. if reportok = 2
  254.     skipvar = .f.
  255.     return
  256. endif
  257. do case
  258. case toprint = 1
  259.     if sys(13) = 'READY'
  260.         repoclause = 'TO PRINT OFF'
  261.         wait window 'Running Report' nowait
  262.     else
  263.         wait window 'Printer not ready, sending report to the screen.' nowait
  264.         repoclause = 'PREVIEW'
  265.     endif
  266. case tofile = 1
  267.     repoclause = 'TO ' + printfile+' OFF'
  268.     wait window 'Running Report' nowait
  269. otherwise
  270.     repoclause = 'PREVIEW'
  271.     wait window 'Running Report' nowait
  272. endcase
  273. report form (alias()) &repoclause
  274. go saverec
  275. if !empty(saveorder)
  276.     set order to (saveorder)
  277. endif
  278. skipvar = .f.
  279. wait window 'Report Complete' nowait
  280.  
  281.  
  282. *       ╓─────────────────────────────────────────────────────────╖
  283. *       ║                                                         ║
  284. *       ║ _PXE0YF7CU  ON SELECTION BAR 5 OF POPUP database        ║
  285. *       ║                                                         ║
  286. *       ║ Procedure Origin:                                       ║
  287. *       ║                                                         ║
  288. *       ║ From Menu:  MENU.MPR,            Record:   30           ║
  289. *       ║ Called By:  ON SELECTION BAR 5 OF POPUP database        ║
  290. *       ║ Prompt:     Toggle Delete                               ║
  291. *       ║ Snippet:    5                                           ║
  292. *       ║                                                         ║
  293. *       ╙─────────────────────────────────────────────────────────╜
  294. *
  295. PROCEDURE _pxe0yf7cu
  296. if deleted()
  297.     recall
  298. else
  299.     delete
  300. endif
  301. show gets
  302.  
  303.  
  304.  
  305. *       ╓─────────────────────────────────────────────────────────╖
  306. *       ║                                                         ║
  307. *       ║ _PXE0YF7DZ  ON SELECTION BAR 6 OF POPUP database        ║
  308. *       ║                                                         ║
  309. *       ║ Procedure Origin:                                       ║
  310. *       ║                                                         ║
  311. *       ║ From Menu:  MENU.MPR,            Record:   31           ║
  312. *       ║ Called By:  ON SELECTION BAR 6 OF POPUP database        ║
  313. *       ║ Prompt:     Pack                                        ║
  314. *       ║ Snippet:    6                                           ║
  315. *       ║                                                         ║
  316. *       ╙─────────────────────────────────────────────────────────╜
  317. *
  318. PROCEDURE _pxe0yf7dz
  319. wait window 'Removing Old Records' nowait
  320. pack
  321. go top
  322. scatter memvar
  323. show gets
  324. wait window 'Pack Complete' nowait
  325.  
  326.  
  327.  
  328. *       ╓─────────────────────────────────────────────────────────╖
  329. *       ║                                                         ║
  330. *       ║ _PXE0YF7IF  ON SELECTION BAR 1 OF POPUP enviro          ║
  331. *       ║                                                         ║
  332. *       ║ Procedure Origin:                                       ║
  333. *       ║                                                         ║
  334. *       ║ From Menu:  MENU.MPR,            Record:   34           ║
  335. *       ║ Called By:  ON SELECTION BAR 1 OF POPUP enviro          ║
  336. *       ║ Prompt:     Status Bar                                  ║
  337. *       ║ Snippet:    7                                           ║
  338. *       ║                                                         ║
  339. *       ╙─────────────────────────────────────────────────────────╜
  340. *
  341. PROCEDURE _pxe0yf7if
  342. if mrkbar("enviro",bar())
  343.    set status off
  344.    set mark of bar bar() of enviro    to .f.
  345. else
  346.    set status on
  347.    set mark of bar bar() of enviro    to .t.
  348. endif
  349. return
  350.  
  351.  
  352.  
  353. *       ╓─────────────────────────────────────────────────────────╖
  354. *       ║                                                         ║
  355. *       ║ _PXE0YF7JK  ON SELECTION BAR 2 OF POPUP enviro          ║
  356. *       ║                                                         ║
  357. *       ║ Procedure Origin:                                       ║
  358. *       ║                                                         ║
  359. *       ║ From Menu:  MENU.MPR,            Record:   35           ║
  360. *       ║ Called By:  ON SELECTION BAR 2 OF POPUP enviro          ║
  361. *       ║ Prompt:     Clock                                       ║
  362. *       ║ Snippet:    8                                           ║
  363. *       ║                                                         ║
  364. *       ╙─────────────────────────────────────────────────────────╜
  365. *
  366. PROCEDURE _pxe0yf7jk
  367. store mrkbar("enviro",bar()) to markset
  368. if markset
  369.    set clock off
  370.    set mark of bar bar() of enviro    to .f.
  371. else
  372.    set clock on
  373.    set mark of bar bar() of enviro    to .t.
  374. endif
  375. return
  376.  
  377.  
  378.  
  379. *       ╓─────────────────────────────────────────────────────────╖
  380. *       ║                                                         ║
  381. *       ║ _PXE0YF7KO  ON SELECTION BAR 3 OF POPUP enviro          ║
  382. *       ║                                                         ║
  383. *       ║ Procedure Origin:                                       ║
  384. *       ║                                                         ║
  385. *       ║ From Menu:  MENU.MPR,            Record:   36           ║
  386. *       ║ Called By:  ON SELECTION BAR 3 OF POPUP enviro          ║
  387. *       ║ Prompt:     Sticky                                      ║
  388. *       ║ Snippet:    9                                           ║
  389. *       ║                                                         ║
  390. *       ╙─────────────────────────────────────────────────────────╜
  391. *
  392. PROCEDURE _pxe0yf7ko
  393. store mrkbar("enviro",bar()) to markset
  394. if markset
  395.    set sticky off
  396.    set mark of bar bar() of enviro    to .f.
  397. else
  398.    set sticky on
  399.    set mark of bar bar() of enviro    to .t.
  400. endif
  401. return
  402.  
  403.